home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / EDITORS / AE170.ZIP;1 / AE.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1993-03-24  |  7.1 KB  |  107 lines
  1. {-----------------------------------------------------------------------------}
  2. {                                                                             }
  3. { AE -- ANOTHER EDITOR                                                        }
  4. { WRITTEN IN TURBO PASCAL 5.5                                                 }
  5. {                                                                             }
  6. {-----------------------------------------------------------------------------}
  7. { KEY DEFINITIONS                                                             }
  8. {                                                                             }
  9. {           NORMAL                      SHIFT                                 }
  10. {           --------------------------  ------------------------------        }
  11. { F1        HELP                        SETUP                                 }
  12. { F2        SAVE FILE                   WRITE TO FILE                         }
  13. { F3        LOAD FILE                   INSERT FILE                           }
  14. { F4        FIND                        FIND & REPLACE                        }
  15. { F5        PUT MARK                    ERASE MARK                            }
  16. { F6        CUT BLOCK TO PASTE BUFFER   DELETE BLOCK                          }
  17. { F7        COPY BLOCK TO PASTE BUFFER  COMPARE BLOCK TO PASTE BUFFER         }
  18. { F8        PASTE BLOCK                 PRINT BLOCK                           }
  19. { F9        NEXT WINDOW                 PREVIOUS WINDOW                       }
  20. { F10       DOS COMMAND                                                       }
  21. {                                                                             }
  22. { alt 0-9   REPLAY MACRO                                                      }
  23. {     A     SWITCH TO WINDOW A                                                }
  24. {     B                                                                       }
  25. {     C     CENTER LINE                                                       }
  26. {     D     DEFINE KEYBOARD MACRO                                             }
  27. {     E     EJECT PRINTER PAGE                                                }
  28. {     F     FORMAT PARAGRAPH                                                  }
  29. {     G     GET SAVED POSITION                                                }
  30. {     H                                                                       }
  31. {     I     IBM CHARACTER SET (ASCII TABLE)                                   }
  32. {     J     JUSTIFY LINE TO RIGHT                                             }
  33. {     K                                                                       }
  34. {     L     DELETE LINE                                                       }
  35. {     M     MATCH BRACKETS                                                    }
  36. {     N     NEW (CLEAR FILE BUFFER)                                           }
  37. {     O                                                                       }
  38. {     P     PRINT ENTIRE FILE BUFFER                                          }
  39. {     Q     DISPLAY EDITOR STATUS                                             }
  40. {     R     REPEAT LAST FIND/REPLACE                                          }
  41. {     S     SAVE POSITION                                                     }
  42. {     T     TOGGLE CASE IN BLOCK                                              }
  43. {     U                                                                       }
  44. {     V                                                                       }
  45. {     W     DELETE WORD FORWARD                                               }
  46. {     X     EXIT PROGRAM                                                      }
  47. {     Y                                                                       }
  48. {     Z     DISPLAY VERSION NUMBER AND DATE                                   }
  49. {                                                                             }
  50. { FIND/REPLACE OPTIONS: I = IGNORE CASE                                       }
  51. {                       N = NO QUERY                                          }
  52. {                       R = REVERSE SEARCH                                    }
  53. {                                                                             }
  54. { SETUP : E = ENVIRONMENT                                                     }
  55. {                K = KEYCLICK (ON/OFF)                                        }
  56. {                B = BELL (ON/OFF)                                            }
  57. {                W = WORD WRAP LENGTH (0 = OFF)                               }
  58. {                T = TAB SPACING                                              }
  59. {                A = AUTO-INDENT (ON/OFF)                                     }
  60. {                I = INSERT/OVERWRITE                                         }
  61. {         F = FILE                                                            }
  62. {                E = SAVE FILES ON EXIT (ON/OFF)                              }
  63. {                I = INTERVAL FOR AUTO-SAVE (0 = OFF)                         }
  64. {                B = MAKE .BAK FILE (ON/OFF)                                  }
  65. {         P = PRINTER                                                         }
  66. {                P = PAGE LENGTH (0 = OFF)                                    }
  67. {                L = LEFT MARGIN                                              }
  68. {                T = TOP MARGIN                                               }
  69. {                N = PRINT PAGE NUMBERS (ON/OFF)                              }
  70. {         D = DISPLAY                                                         }
  71. {                T = CHANGE CURSOR TYPE                                       }
  72. {                C = CHANGE SCREEN COLORS                                     }
  73. {                D = DISPLAY SPACES AS DOTS (ON/OFF)                          }
  74. {         S = SAVE SETTINGS                                                   }
  75. {                                                                             }
  76. {-----------------------------------------------------------------------------}
  77. {                                                                             }
  78. { COPYRIGHT (c) 1991-1993 DICK ALSTEIN                                            }
  79. { Read the copyright notice accompanying the package                          }
  80. {                                                                             }
  81. {-----------------------------------------------------------------------------}
  82.  
  83. PROGRAM AE ;
  84.  
  85. {$M 8192, 92000, 224000}
  86. { memory requirements: stack size, min heap size, max heap size }
  87.  
  88. {$R-}  { array range checking off }
  89. {$B-}  { short-circuit boolean evaluation }
  90. {$I-}  { do not generate run-time errors for I/O operations }
  91. {$S+}  { stack checking on }
  92. {$V-}  { relaxed var string checking }
  93.  
  94. USES Crt, Dos, Printer, AE0, AE1, AE2, AE3, AE4, AE5 ;
  95.  
  96. BEGIN
  97. AEVersionNr := '1.7' ;
  98. AEVersionDate := '24 Mar 1993' ;
  99. Initialize ;
  100. REPEAT IF (MacroStackPointer = Inactive) AND
  101.           (Config.Setup.FastRedraw OR (NOT KEYPRESSED))
  102.           THEN RedrawScreen ;
  103.        ExecKey (GetKeyNr) ;
  104. UNTIL ProgramFinished ;
  105. ShutOff ;
  106. END.
  107.